This script is used to generate all main and supplementary figure as well as the supplementary file
Print the numbers that are used in the article regarding Classification and diversity
## # A tibble: 6 × 4
## SampleContent2 mean sd n
## <fct> <dbl> <dbl> <int>
## 1 Biofilm (g.) 1003. 310. 19
## 2 Sediment 878. 226. 16
## 3 Biofilm (e.p.) 1050. 236. 10
## 4 SWW 1749. 258. 45
## 5 IWW 1941. 144. 56
## 6 AS 1791. 115. 89
## SampleContent2 mean median sd n q1
## 1 Biofilm (e.p.),Sediment,Biofilm (g.) 41115.58 17896 47997.27 45 12648
## SampleContent2 mean median sd n q1
## 1 IWW 14728 14728 0 56 14728
## SampleContent2 mean median sd n q1
## 1 SWW 16247.27 13898 9200.349 45 11058
## SampleContent2 mean median sd n q1
## 1 AS 14698.35 14728 279.7334 89 14728
c(“SampleContent2”, “SampleContent2_SampleSite”,
“SampleEnvironment”)c(“
OTU ADONIS analysis for
SampleContent2.
R2=0.67,
p<0.001.
The varibles tested are: SWW, Sediment,
Biofilm (e.p.), Biofilm (g.), AS, IWW.
”, “
OTU ADONIS
analysis for SampleContent2_SampleSite.
R2=0.76, p<0.001.
The varibles
tested are: sewage_Roden, sewage_Skolesti, sewage_Visse,
sewage_Doctorvej, sewage_Tvaesgade, sewage_Sejlflod, sewage_Frejlev,
sewage_Stadionvej, sediment_Stadionvej, sediment_Tvaesgade,
biofilm_end_pressure_Sejlflod, sediment_Roden, biofilm_Frejlev,
biofilm_end_pressure_Doctorvej, sediment_Frejlev, biofilm_Visse,
biofilm_Roden, biofilm_Skolesti, biofilm_Tvaesgade, biofilm_Stadionvej,
AS_AalborgØst, IWW_AalborgWest_after, AS_AalborgWest,
IWW_AalborgØst_after.
”, “
OTU ADONIS analysis for
SampleEnvironment.
R2=0.58,
p<0.001.
The varibles tested are: wastewater,
sewer_wet_solids, AS.
”)
## [1] "AS" "sewer_wet_solids"
## [3] "sewer_wet_solids;AS" "sewer_wet_solids;wastewater;AS"
## [5] "wastewater" NA
SampleContent2
Species ADONIS analysis for
SampleContent2.
R2=0.41,
p<0.001.
The varibles tested are: Sediment, Biofilm
(e.p.), Biofilm (g.).
c(“SampleContent2”, “SampleSite”)c(“
Species ADONIS analysis for
SampleContent2.
R2=0.31,
p<0.001.
The varibles tested are: Sediment, Biofilm
(g.).
”, “
Species ADONIS analysis for
SampleSite.
R2=0.37,
p<0.001.
The varibles tested are: Stadionvej,
Tvaergade, Roden, Frejlev.
”)
## [1] "type is: Cummulative abundance. Can be set to either 'Cummulative abundance'or 'No. of species and unclassified ASVs (transformed to %)"
## [1] "type is: No. of species and unclassified ASVs (transformed to %). Can be set to either 'Cummulative abundance'or 'No. of species and unclassified ASVs (transformed to %)"
## # A tibble: 3 × 11
## SampleContent2_2 .y. group1 group2 n1 n2 statistic df p
## <fct> <chr> <chr> <chr> <int> <int> <dbl> <dbl> <dbl>
## 1 SWW (g.) : Biofilm (… dist… none … one r… 571 57 10.1 60.5 1.47e-14
## 2 SWW (g.) : Sediment dist… none … one r… 480 48 11.0 51.4 4.21e-15
## 3 SWW (g.) : Biofilm (… dist… none … one r… 300 30 5.69 31.3 2.91e- 6
## # ℹ 2 more variables: p.adj <dbl>, p.adj.signif <chr>
## # A tibble: 3 × 12
## SampleSite SampleContent2_2 .y. group1 group2 n1 n2 statistic df
## <chr> <fct> <chr> <chr> <chr> <int> <int> <dbl> <dbl>
## 1 AalborgWest_… IWW : Biofilm (… dist… < 3 d… ≥ 3 d… 342 532 13.9 702.
## 2 AalborgWest_… IWW : Sediment dist… < 3 d… ≥ 3 d… 288 448 13.6 673.
## 3 AalborgWest_… IWW : Biofilm (… dist… < 3 d… ≥ 3 d… 180 280 7.54 424.
## # ℹ 3 more variables: p <dbl>, p.adj <dbl>, p.adj.signif <chr>